

(deffunction virus () 
      (printout t "---->Eliminando Virus" crlf)
      (call java.lang.Thread sleep 500)
      (printout t "*" )
      (call java.lang.Thread sleep 500)
      (printout t "*" )
      (call java.lang.Thread sleep 500)
      (printout t "*" )
      (call java.lang.Thread sleep 500)
      (printout t "---->ELIMINADO" crlf)
	)

(deffunction importante () 
      (printout t "----> Notificando Correo Importante" crlf)

	)

(deffunction spam () 
      (printout t "---->Eliminando Spam" crlf)
      (call java.lang.Thread sleep 500)
      (printout t "*" )
      (call java.lang.Thread sleep 500)
      (printout t "*" )
      (call java.lang.Thread sleep 500)
      (printout t "*" )
      (call java.lang.Thread sleep 500)
      (printout t "---->ELIMINADO" crlf)

	)





; Regla que cierra la puerta del horno si est� abierta y este funcionando.
(defrule hornoEncendido
	(and
		(horno encendido)
		(puerta-horno abierta)
	)
	=>
	(printout t "Cerrar puerta horno." crlf)
	(retract-string "(puerta-horno abierta)")
	(assert (puerta-horno cerrada))
)

